home *** CD-ROM | disk | FTP | other *** search
/ PCGUIA 127 / PC Guia 127.iso / Software / Produtividade / OpenOffice.org 2.0.1 / openofficeorg1.cab / TutorialClose.xba < prev    next >
Extensible Markup Language  |  2004-05-19  |  541b  |  15 lines
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
  3. <script:module xmlns:script="http://openoffice.org/2000/script" script:name="TutorialClose" script:language="StarBasic">REM  *****  BASIC  *****
  4. Dim myCloseDialog As Object
  5.  
  6. Sub TutorialCloseMain
  7.     myCloseDialog = LoadDialog("Tutorials","TutorialCloseDialog")
  8.     myCloseDialog.Execute()
  9. End Sub
  10.  
  11. Sub CloseYes(aEvent)
  12.     myCloseDialog.EndExecute()
  13.     DialogVisible = False
  14. End Sub
  15. </script:module>